home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 / Ham Radio 2000.iso / ham2000 / misc / nshadow / ser-res.bas < prev    next >
BASIC Source File  |  1994-06-23  |  1KB  |  36 lines
  1. 5 PRINT "                  ***SERIES RESONANCE***"
  2. 10 PRINT
  3. 15 PRINT "WHAT IS THE VALUE OF (C) IN pF?"
  4. 20 INPUT "ENTER";C
  5. 25 PRINT "WHAT IS THE VALUE OF (L) IN uH?"
  6. 30 INPUT "ENTER";L
  7. 35 PRINT "WHAT IS THE SERIES RESISTANCE (RS) IN OHMS?"
  8. 40 INPUT "ENTER";RS
  9. 45 PRINT "WHAT IS THE PARALLEL RESISTANCE (RP) IN OHMS?"
  10. 50 INPUT "ENTER";RP
  11. 55 P=3.141592654#
  12. 60 Y=180/P
  13. 65 FR=10^3/((2*P)*((L*C)^.5))
  14. 70 PRINT "WHAT IS THE DESIRED VALUE OF (F) IN MHz?"
  15. 75 INPUT "ENTER";F
  16. 80 FA=F*10^6
  17. 85 LA=L/10^6
  18. 90 CA=C/10^12
  19. 95 G=RP*(((1-4*P^2*FA^2*LA*CA)^2+RS^2*CA^2*4*P^2*FA^2)^.5)
  20. 100 H=((1-4*P^2*FA^2*LA*CA)^2+(RS+RP)^2*CA^2*4*P^2*FA^2)^.5
  21. 105 Z=G/H
  22. 110 J=Y*(ATN((RS*CA*2*P*FA)/(1-4*P^2*FA^2*LA*CA)))
  23. 115 K=Y*ATN(((RS+RP)*CA*2*P*FA)/(1-4*P^2*FA^2*LA*CA))
  24. 120 A=J-K
  25. 125 PRINT
  26. 130 PRINT"                      ***ANSWERS***"
  27. 135 PRINT
  28. 140 PRINT C,"CAPACITY (C) IN pF."
  29. 145 PRINT L,"INDUCTANCE (L) IN uH."
  30. 150 PRINT RS,"SERIES RESISTANCE (RS) IN OHMS."
  31. 155 PRINT RP,"PARALLEL RESISTANCE (RP) IN OHMS."
  32. 160 PRINT FR,"RESONANT FREQUENCY (FR) IN MHz."
  33. 165 PRINT F,"DESIRED VALUE OF FREQUENCY (F) IN MHz."
  34. 170 PRINT Z,"IMPEDANCE (Z) IN OHMS."
  35. 175 PRINT A,"PHASE ANGLE (A) IN DEGREES."
  36.